home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / macintal.sit / MacinTalk Stack / card_7128.txt < prev    next >
Encoding:
Text File  |  1989-05-27  |  804 b   |  23 lines
  1. -- card: 7128 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2271
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10. XCMD ControlLock
  11.  
  12. -- part contents for background part 3
  13. ----- text -----
  14. This XCMD (un)locks the "control key". The control key is only found on newer Mac keyboards, but this XMCD does not require there to be a real one so it works fine on Mac Pluses! When locked any keystroke with the command key UP will cause a "controlKey num" message, command keystokes are NOT affected.
  15.  
  16. -- part contents for background part 2
  17. ----- text -----
  18. ControlLock "on"    -- lock the control key (if unlocked)
  19. ControlLock "off"   -- unlock the control key (if locked)
  20.  
  21. on controlKey num
  22.   -- your script, num is the Mac character set value for the key
  23. end controlKey